home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-ROM Collection / Amiga CD-ROM Collection - Auge 4000 and Cactus and Demo Util.iso / auge4000 / 46 / lib / extra / gettail.a < prev    next >
Text File  |  1990-06-20  |  194b  |  17 lines
  1.  
  2.         section text,CODE
  3.  
  4.         xdef    _GetTail        ; node = GetTail(list:4(sp))
  5.  
  6. _GetTail:    move.l    4(sp),A0
  7.         move.l    8(A0),A0
  8.         tst.l    4(A0)
  9.         beq    gt0
  10.         move.l    A0,D0
  11.         rts
  12. gt0        moveq.l #0,D0
  13.         rts
  14.  
  15.         END
  16.  
  17.